RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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**FILE**1D**ELSEN 


nnnn 
MMWMn 


” 
” 
=) 
) 
=) 
— 
=) 
4 
4 
4 
=) 
= 
ies) 


© LULLLLLLEL §=SS 


sd sd a ss a 
a sd ddd sa ad 


[VU TUS Eve TVS TUS TVeTVevevervelyssvervezuwl 
dd dd dd dd a 


LLLLLLLLLL 
LLLLLLLLLL 


1984 00:22: VAX=11 Bliss-32 V4.0-742 Pa 1 
1984 9:58:86 DISKSVMSMASTER: CRUNOFF . SRCJELSEN.BLI:1> (1) 
! 


2:7 001 © MODULE ELSEN ( : 
3 ¢ 0 g IDENT = 'V04-000' : 
3 P 00 %BLISS32C ‘ 
: ¢ pP 008 ADDRESSING_MODE (EXTERNAL =LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) ‘ 
: 6 06 )= | : 
; 4 907 BEGIN | 
: ; S04 : leuenenneseersneenttenenennnneterenerereetrreretteenenenenerenenetetnernetes : 
3 1 ie * 5 
. a 11 1°! COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 3 
: 1g 1g 1 ie DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 2 ; 
3 Fs Betz : +s ALL RIGHTS RESERVED. : : 
ae 0015 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
: 16 8018 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
Be ar 0017 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS RE OR ANY HER * ; 
3 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 $9 pogo : :* TRANSFERRED. : . 
: $$ 0092 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 2 0U 1 !* AND SHOULD MOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $e base : it CORPORATION. . : 
: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
; e? 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
;- @& 0028 1 !* * 3 
3 50 kh 1 !® . 3 
: 0 0030 1 Pee eae e ee eee eee AREER EERE AAA E AAA ER TES. ee EAA ASAAAAAARAAAAAAAATAEEAAR EEE $ 
3 1 0031 1! : 
: 38 ott) 1 e+ 
; Hi Oe ! : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
. = 0035 1 ' ABSTRACT: Processes .END LIST and .END NOTE commands 
; ited 1! 
Toe: 0037 1! 
; 3B 0038 1 ! ENVIRONMENT: Transportable 
; 0039 1! 
: 40 0040 1 ! AUTHOR: R.W.Friday CREATION DATE: January, 1980 
s (41 0041 1! | 

| 

| 


| 


$732 V4.0-742 Page (2s 
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y a hoo Revision History 18: 338: 198¢ 99: 88: 06 WT KSUNGHAS TER: CRUNOFF . SRCIJELSEN.BLI; 


: 7 tt } XSBTTL "Revision History’ 

4 45 4] i MODIFIED BY: 

; 23 O46 1/ 008 KAD00008 Keith Dawson S-July y-1983 

; $8 rtf } } Made default spacing agter a note 1 instead of 2. 

i 30 O69 1 | 007 —-FA00007 Ken Alden 07-Mar-1983 

F 2g 0051 1! copyright dates. Civanged require files to BLISS library. 
; 5 Bnes 1! 

;. 0053 1 !-= 


Global edit of all modules. Updated module names, idents, 
| 


14 
1S$e0-1984 99:88:06 DISKSVMEMASTERSCRUNOFFSRCIELSEN.BLI- 


v04-000 Module Level Declarations 
8 : ZSBITL "Module Level Declarations’ 


TABLE OF CONTENTS: 


; 1 : 
; 1 ; 
3 1! ; 
3 1! ; 
; @& 0 1! 3 
3 (6 089 | | ; 
; 6 960 t INCLUDE FILES: 
; 64 062 1° 
; 65 $8 1 LIBRARY 'NXPORT:XPORT': ' XPORT Library ; 
; $6 te : REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions : 
i 68 U 0196 1 ZIF DSRPLUS ZTHEN ; 
; $9 U 199 LIBRARY TREQ=DPLLIB’: ! DSRPLUS BLISS Library ; 
ow $199 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library : 
ee 0200 1 &F1 ; 
3 7 0201 1 : 
; 74 0 ¢ 1! : 
eae | 0203 1 | MACROS : 
BT : 
: 28 8 ; EQUATED SYMBOLS: ; 
 » 0208 1 : 
; 1 09 1 LITERAL : 
3 § $398 1 . Ore EpAC a F.. 'Spacing after end of a List : 
o- & 0211 1 NFSPAC = 1; !Spacing after end of a note : 
BET, ? 
: 86 0214 1 | OWN STORAGE: 
ree : 
3 89 0317 | EXTERNAL REFERENCES: : 
: 91 0219 1_ : 
: 9 0920 1 EXTERNAL : 
ae 0552 | GCA: GCACDER INIT TONS” 
; 95 02 : 1 LSTCNT : REF COUNTED LIST, '. LIST ELEMENT counters and controls. : 
; «96 0224 1 NUMPRM : NUMPRM_ DEFINE, : 
3; «697 bs 2 9 PHAN : PHAN_DEFINITION, : 
; 98 0 $ SCA : SCA_DEFINITION; : 
: 100 B81! 3 
3 106 QO 1 EXTERNAL LITERAL ‘Error messages : 
> 10 0231 1 RNF IFT, ; 
° H+ § ' RNF INA; ° 
: 106 4 1 EXTERNAL ROUTINE 2 
; 10 73 ERMA ; 
; 108 $1 GCPOS : 
; 109 1 = GCSKIP, : 
: 110 4 1 STKFRM: ; 
> 4991 1 ; 
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ELSEN 16-Sep-1984 00:22: VAX-11 Bliss-32 V4.0-742 S 4 
v04-000 Module Level Declarations 12-808- 1382 90:88:06 DISKSVMSMASTER:CRUNOFF.SRCJELSEN.BLI:1> (4) 
GLOBAL ROUTINE ELSEN (HANDLER_CODE) : NOVALUE = 


te 


i FUNCTIONAL DESCRIPTION: 
See ABSTRACT, above. 
FORMAL PARAMETERS: 
HANDLER_CODE indicates which command is to be processed. 
| 


IMPLICIT INPUTS: 
NUMPRM contains a number, as processed by GETNUM. 


OOOO COCOCCOOOCOOCCOO 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


PAPEL DPE DPM 


ee 
Ui Ooo War Powe DOS OOo OA UMN 20 -DG0 WON Ow 


'Pop the .LIST and .NOTE stack. 
if NOT STKFRM (.HANDLER_CODE) 


HEN 
RETURN; 'Stack underflow, etc 


'Set up default .END xxxx spacing. 
sete — .HANDLER_CODE OF 


SN NNO O 


WN —OOONOues 


CH_END_NOTE) : 
DEFAULT_SPACING = NFSPAC®.SCA_SPACING; 


PIPIPOPIPOPUPOPONOPOPonononononygs 


Se ee eee wwe fe fololofololelololololo) 


OOo NINN 


CH_END LIST) : 


N 
DEFAULT_SPACING = LFSPAC*.SCA_SPACING; 
eree bese one Lever in List_counters 
STC T = .LSTCNT CCL_INDEX) = 1; 


AAA DPA III IID ES BES EEE ES UNA 
SoS SSIS SSNS UN WS SGNGARGN OSes MEW —OOONOULSWNHOOODNOULW 


CL_INDEX 


TES; 
'General coding for both .END LIST and .END NOTE. 


‘Generate final spac ing after List 
IF (NOT .NUM_RESULT) ‘If the number is bad,— 
OR (.NUM_LENGIH EQL 0) ‘or no number was specified, 


me aaa a a ak a ad a a = 2 = = = SS 2 = SS 2 SS 2 SS SS SY os SS SS YS SS YY 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
DEFAULT SPACING, 
F INAL_SPACING; 


Be Se Be Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Fe Fe Se Se Se Se FH Ge Ge Se Ge Se Se Ge Fe Se Se Se Se Se Ge Se Se Se Se Se Ge Se ee Se Ge Se Se See Se Se Gees 


PoPoPonofonofonononopnofnofnofnonny 
ooowovon [J 
une = wn 


LL ~SSSsSssssssssssesssssssssssssssssssssss tene 
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v04-000 Module Level Declarations 12-88-1382 99:88:06 DISKSVMSMASTER: CRUNOFF . SRCJELSEN.BLI:1 > (4) 
N 
'Use default .END xxxx spacing. 
5 FINAL SPACING = .DEFAULT_SPACING 


‘User has specified the “GND xxxx skip. 
‘Validate it and then do it. 


N 
FINAL_SPACING = .NUM_VALUE®*.SCA_SPACING; 'Convert to .SPACING Lines. 
IF_.FINAL_SPACING LSS 0 
THEN ! 


‘User said something ike .END xxxx <5, 
;wh ch means to position to 5 Lines from the 


'bottom. 

A Taal mnths 'This is TRUE if user is inside a footnote. 
BEGIN !,END xxxx with negative value is illegal in a footnote. 
ERMA (RNFIFT, FALSE); 
FINAL_SPACING = .DEFAULT_SPACING 

ELSE : 
IF ABS (.FINAL_SPACING) GEQ .PHAN_LLINES 

iUser said something Like .END xxxx -9999. 

Complain to the user 

A (RNFINM, FALSE); 


se default spacing instead of erroneous spacing 
BA. SPAL NS = .DEFAULT_SPACING 


WO DONOUESWN—O 


coon 


AAA AAA A AAA AAA AA AAFP 
3  BQOODOOOOOCO00O 
NOUEWN (OL DNF WN—OOON 


BPAY AAAI HIIPPPONPOPOPONINPON NY 2 Ss 


ELSE : 
‘It's a valid negative skip 
BEGIN 
GCPOS(..NUM_VALUE) ; 

RETURN 

END 


DER DIR DISA et sr da od td ot td 


BONNE Sawa naa SES LE AFORE SSS LISP SLES NEURON US SASS 


A. ANNAN AI AWA ANWIAI AAAI AWWW 
NOVREWN (OOO NOULS WN OOO 


'If we arrive here, it's either .END xxxx with no skip specified, 
‘or else the skip is a positive skip. 
'Bad skip specifications continue here too. 


AA 
S 


ry. 


'Check for .END xxxx 0 
IF gf SA. SPACING NEQ 0 


'SCA_SPACING is subtracted off because when ENDCHR gets 
‘called again (eventually) it will add that many blank 


‘Lines. 
GCSKIP ( MAX(1, .FINAL_SPACING = (.SCA_SPACING = 1)) ); 
END; ‘End of ELSEN 


POR PORPONOPONOPONNINNPNONIND ES & BF EWA BBB EE RWW BB BWW WWIII Ionononone 
mm 
z—cw 


ae 
=QODNAUE WIN OOM 


Fwn-0o0 


Wid 
ww 


SOOOOSOOOOOOCOOSOOSOOSOSSOSOSOOSSSOCOOOCOCOCSOOCOOSCOOCOCOOOOOOOOOOOOOOO 


000000006 


000000006 


000000006 


000000006 


000000006 
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boa0o0006 


53 00 


00 
50 000000006 
04 


3D FC 
08 
65 00 
0A 000000006 
000000006 
50 
50 
FF 
; 000000006 
2 
EF 
52 00 
6E 
EF 


= 
bed 


~m 
bad 


Ww 
wn 


VIUNOM OAS OOWFRON NOS OL "OOF LSOOWO 
= 
Aad 


oA 


OOOCOCCOSOCOOOOSOSSSOSOOOOSOSOOCOOOOCOOOoOoOoOoOooOO 


OOOQCOOOCOSCOSSS QOCCCOCOSOOCOoCOCOoOoOOoOOOoOOoCOOoOOoOOoOoOOoO 


SAINI LE HL NPM TMM LOOM OMT NOL OIMOMEMUIWEANM COMO TN™ 
— Te 


SOOM | OCOMOON VMOU DIM SOP SF PMMIO—WOu 1 Mmowrm 
FDOfS oO ONWE DS “OS FO MOWO "9 FF OOM O NOON) | SN FOWIommna 
SOOOGCGCGOOCOOOSOOOOOOOOSSLS QOSCCOCSCOSOOOOCOOOOOOOOOOOCOSOO 


ono —-9900l-Oo70-90 7090-90-90 -9 OM Oo - oO MoT 0 -9 -9C -“VGoOmMmMnOIT OOW 


90: 52:38 VAX-11 Bliss-32_ V4.0-742 Pa 
706: DISKSVMSMASTER: CRUNOFF ..SRCJELSEN.BLI;1 


ELSEN 
FEM o00\ 

FNCT, GCA, LSTCNT 
NUMPRM, PHAN, SCA 


RNFIFT, RNFINM, ERMA 
GCPOS, GCSKIP, STKFRM 


SCODES,NOWRT,2 

ELSEN, Save R2,R3,R4,R5 
NUMPRM+4, RS 

SCA+124, RS 
HANDLER_CODE, R2 


R 
#1, STKFRM 
RO, 1$ 


R2. #61 
@SCA+124, DEFAULT_SPACING 
Re. #59 
@SCA+124, DEFAULT_SPACING 
LSTCNT, RO 


NUMPRM, 7$ 
NUMPRM+12 


7$ 
@SCA+124, NUMPRM+4, FINAL_SPACING 


FNCT+20, 4$ 

= (SP) 

#RNF IFT 

| pecapbtananes RO 
RO, RO 

RO, @PHAN+4 

8$ 


-(SP) 
ARNE INM 


eam 


PRM+4 
GCPOS 


Om «= 


——=O7 NN ——— => 


22—-2Dze— = 
ss @# 


Mror 


FIER SR VA ATS 


mr 


oooo oOo CoO OOO 
c Sete Ge Ge te ee 


WWW Porm 


#2, ERMA 
EFAULT_SPACING, FINAL_SPACING 
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iE 


; Routine Size: 166 bytes, Routine Base: $CODE$ + 0000 


; g 5 0 26 1 

3 8 0 1 END ‘End of module 

3 € 0354 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: $CODES 166 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

eee > 5 i. oa aeleeee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

> _$255$DUA28: :ESYSLIB]XPORT .L32;1 590 0 0 252 00:00.1 

; 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 124 19 1 86 00:00.3 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ELSEN/OBJ=OBJ$:ELSEN MSRC$:ELSEN/UPDATE=(ENH$:ELSEN) 
3; Size: 166 goge + 0 data bytes 

3; Run Time: 704.7 

3; Elapsed Time: 0:15.4 

3; Lines/CPU Min 454 

3 Lexenes/CPU-Rin: 1167 

; Yau pages 

3; Compi atten Complete 


L EQUIPMENT CORPORATION 
PROPRIETARY 


A 
DENTIAL- AND 
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